COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE PLOT
C00009 ENDMK
C⊗;
	TITLE PLOT
	INTERNAL PLOT,VARIAN
	EXTERNAL  EXTOUT,FINEXT,EXIT,PUTEXT,OUTF,TTOP,DL
	EXTERNAL  typint,typcrl
;;	COMMON /DL/RSIZ,SAVER,NAME,EXT

LX:	0
N:	BLOCK =512

VARIAN:	0
	JRA 16,(16)	;DUMMY ROUTINE.  SEE PLOT4.FAI (MPV.DMP)

PLOT:	0		;SUBROUTINE PLOT(I,J,K)
     	SETO  4,		;COMMON /OUTF/JJ,KKK,KNT
	CAMN	4,OUTF		;DIMENSION N(148)
	JRST	PL4		;IF(JJ.EQ.-1)GO TO 4
	MOVNM  4,LX		;L=1
	SETZM OUTF+2	;VECTOR COUNTER (TEMPORARY, I HOPE)
	MOVEI 4,=50000
	MOVEM 4,TTOP+1		;INITIALIZE JBOT AND JTOP
	MOVNM 4,TTOP  		;JBOT=50000, JTOP=-50000
	MOVNM 4,RTMAX#		;RTMX=-50000
	MOVEM 4,X1#	;INIT OLD X AND Y
	MOVEM 5,Y1#
	MOVE 4,DL	;MOVEI	4,=127		;N(1)=127
	FMPR 4,[1000.0]		;SAVE SIZE FACTOR*1000 IN FIRST WORD.
	KIFIX 4,4		;WILL BE USED BY SEGMENT SYSTEM.
	MOVEM	4,N
	SETOM	OUTF		;JJ=-1
PL4:	MOVE	5,@2(16)	;4	IF(K.EQ.99)GO TO 1
	CAIN	5,=99
	JRST	PL1
	MOVE 4,@(16)	;IF(X2.EQ.X1.AND.Y2.EQ.Y1)RETURN
	MOVE 5,@1(16)	;AVOID DUPLICATE COORDS.
	CAMN 4,X1
	CAME 5,Y1
	JRST DIFRNT
	SKIPL 2,@2(16)	;SKIP IF -3 IN PEN CODE
	JRA	16,3(16)	;RETURN
DIFRNT:	MOVEM 4,X1
	MOVEM 5,Y1		;SAVE X AND Y FOR NEXT TIME
	movem 2,z1#
	jsa 16,typint
	jump x1
	jsa 16,typint
	jump y1
	jsa 16,typint
	jump z1
	jsa 16,typcrl
vj:	AOS	7,LX		;L=L+1
	JRA	16,3(16)	;RETURN
pl1:	JSA	16,EXIT		;CALL EXIT

	END